home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / CMConversions.p < prev    next >
Text File  |  1995-09-14  |  4KB  |  145 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:24:22 PM }
  2. {}
  3. {     File:        CMConversions.p}
  4. { }
  5. {     Contains:    ColorSync base <-> derived color space conversion Component interface}
  6. { }
  7. {     Version:    Technology:    ColorSync 2.0}
  8. {                 Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18}
  9. { }
  10. {     Copyright:    © 1984-1995 by Apple Computer, Inc.}
  11. {                 All rights reserved.}
  12. { }
  13. {     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter}
  14. {                 stack.  Include the file and version information (from above)}
  15. {                 in the problem description and send to:}
  16. {                     Internet:    apple.bugs@applelink.apple.com}
  17. {                     AppleLink:    APPLE.BUGS}
  18. { }
  19. {}
  20.  
  21. unit CMConversions;
  22. interface
  23.  
  24.  
  25. {$IFC UNDEFINED __CMCONVERSIONS__}
  26. {$SETC __CMCONVERSIONS__ := 1}
  27.  
  28.     uses
  29.         ConditionalMacros, Types, Components, Quickdraw, Dialogs, Printing, CMICCProfile, CMApplication;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35.     const
  36.         CMConversionInterfaceVersion = 1;
  37.  
  38. { Component function selectors }
  39.         kCMXYZToLab = 0;
  40.         kCMLabToXYZ = 1;
  41.         kCMXYZToLuv = 2;
  42.         kCMLuvToXYZ = 3;
  43.         kCMXYZToYxy = 4;
  44.         kCMYxyToXYZ = 5;
  45.         kCMRGBToHLS = 6;
  46.         kCMHLSToRGB = 7;
  47.         kCMRGBToHSV = 8;
  48.         kCMHSVToRGB = 9;
  49.         kCMRGBToGRAY = 10;
  50.         kCMXYZToFixedXYZ = 11;
  51.         kCMFixedXYZToXYZ = 12;
  52.  
  53.  
  54.     function CMXYZToLab (ci: ComponentInstance; {CONST}
  55.                                     var src: CMColor; {CONST}
  56.                                     var white: CMXYZColor; var dst: CMColor; count: LONGINT): ComponentResult;
  57.     {$IFC NOT GENERATINGCFM}
  58.     inline
  59.         $2F3C, 16, 0, $7000, $A82A;
  60.     {$ENDC}
  61.     function CMLabToXYZ (ci: ComponentInstance; {CONST}
  62.                                     var src: CMColor; {CONST}
  63.                                     var white: CMXYZColor; var dst: CMColor; count: LONGINT): ComponentResult;
  64.     {$IFC NOT GENERATINGCFM}
  65.     inline
  66.         $2F3C, 16, 1, $7000, $A82A;
  67.     {$ENDC}
  68.     function CMXYZToLuv (ci: ComponentInstance; {CONST}
  69.                                     var src: CMColor; {CONST}
  70.                                     var white: CMXYZColor; var dst: CMColor; count: LONGINT): ComponentResult;
  71.     {$IFC NOT GENERATINGCFM}
  72.     inline
  73.         $2F3C, 16, 2, $7000, $A82A;
  74.     {$ENDC}
  75.     function CMLuvToXYZ (ci: ComponentInstance; {CONST}
  76.                                     var src: CMColor; {CONST}
  77.                                     var white: CMXYZColor; var dst: CMColor; count: LONGINT): ComponentResult;
  78.     {$IFC NOT GENERATINGCFM}
  79.     inline
  80.         $2F3C, 16, 3, $7000, $A82A;
  81.     {$ENDC}
  82.     function CMXYZToYxy (ci: ComponentInstance; {CONST}
  83.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  84.     {$IFC NOT GENERATINGCFM}
  85.     inline
  86.         $2F3C, 12, 4, $7000, $A82A;
  87.     {$ENDC}
  88.     function CMYxyToXYZ (ci: ComponentInstance; {CONST}
  89.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  90.     {$IFC NOT GENERATINGCFM}
  91.     inline
  92.         $2F3C, 12, 5, $7000, $A82A;
  93.     {$ENDC}
  94.     function CMRGBToHLS (ci: ComponentInstance; {CONST}
  95.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  96.     {$IFC NOT GENERATINGCFM}
  97.     inline
  98.         $2F3C, 12, 6, $7000, $A82A;
  99.     {$ENDC}
  100.     function CMHLSToRGB (ci: ComponentInstance; {CONST}
  101.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  102.     {$IFC NOT GENERATINGCFM}
  103.     inline
  104.         $2F3C, 12, 7, $7000, $A82A;
  105.     {$ENDC}
  106.     function CMRGBToHSV (ci: ComponentInstance; {CONST}
  107.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  108.     {$IFC NOT GENERATINGCFM}
  109.     inline
  110.         $2F3C, 12, 8, $7000, $A82A;
  111.     {$ENDC}
  112.     function CMHSVToRGB (ci: ComponentInstance; {CONST}
  113.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  114.     {$IFC NOT GENERATINGCFM}
  115.     inline
  116.         $2F3C, 12, 9, $7000, $A82A;
  117.     {$ENDC}
  118.     function CMRGBToGray (ci: ComponentInstance; {CONST}
  119.                                     var src: CMColor; var dst: CMColor; count: LONGINT): ComponentResult;
  120.     {$IFC NOT GENERATINGCFM}
  121.     inline
  122.         $2F3C, 12, 10, $7000, $A82A;
  123.     {$ENDC}
  124.     function CMXYZToFixedXYZ (ci: ComponentInstance; {CONST}
  125.                                     var src: CMXYZColor; var dst: CMFixedXYZColor; count: LONGINT): ComponentResult;
  126.     {$IFC NOT GENERATINGCFM}
  127.     inline
  128.         $2F3C, 12, 11, $7000, $A82A;
  129.     {$ENDC}
  130.     function CMFixedXYZToXYZ (ci: ComponentInstance; {CONST}
  131.                                     var src: CMFixedXYZColor; var dst: CMXYZColor; count: LONGINT): ComponentResult;
  132.     {$IFC NOT GENERATINGCFM}
  133.     inline
  134.         $2F3C, 12, 12, $7000, $A82A;
  135.     {$ENDC}
  136.  
  137. { $ALIGN RESET}
  138. { $POP}
  139.  
  140. {$ENDC}
  141.  {__CMCONVERSIONS__}
  142.  
  143. implementation
  144. end.
  145.